﻿Namespace CapaDeNegocio
    Public Class Persona
        Private strId As String
        Private strNombre As String
        Private strApellido As String
        Private objTipoDoc As CapaDeNegocio.TipoDocumento
        Private intNumeroDoc As Long
        Private datFechaNacimiento As Date
        Private strCalle As String
        Private intNumero As Integer
        Private strTelefono As String
        Private strMail As String
        Private strSexo As String
        Private strEdad As Integer

        Public Property nombre() As String
            Get
                Return strNombre
            End Get
            Set(ByVal value As String)
                strNombre = value
            End Set
        End Property

        Public Property apellido() As String
            Get
                Return strApellido
            End Get
            Set(ByVal value As String)
                strApellido = value
            End Set
        End Property

        Public Property fechaNacimiento() As Date
            Get
                Return datFechaNacimiento
            End Get
            Set(ByVal value As Date)
                datFechaNacimiento = value
            End Set
        End Property

        Public Property calle() As String
            Get
                Return strCalle
            End Get
            Set(ByVal value As String)
                strCalle = value
            End Set
        End Property

        Public Property numero() As Integer
            Get
                Return intNumero
            End Get
            Set(ByVal value As Integer)
                intNumero = value
            End Set
        End Property

        Public Property telefono() As String
            Get
                Return strTelefono
            End Get
            Set(ByVal value As String)
                strTelefono = value
            End Set
        End Property

        Public Property mail() As String
            Get
                Return strMail
            End Get
            Set(ByVal value As String)
                strMail = value
            End Set
        End Property

        Public Property sexo() As String
            Get
                Return strSexo
            End Get
            Set(ByVal value As String)
                strSexo = value
            End Set
        End Property

        Public Property tipoDocumento() As CapaDeNegocio.TipoDocumento
            Get
                Return objTipoDoc
            End Get
            Set(ByVal value As CapaDeNegocio.TipoDocumento)
                objTipoDoc = value
            End Set
        End Property
        Public Property id() As String
            Get
                Return strId
            End Get
            Set(ByVal value As String)
                strId = value
            End Set
        End Property

        Public Property edad() As Integer
            Get
                Return strEdad
            End Get
            Set(ByVal value As Integer)
                strEdad = value
            End Set
        End Property

        Public Property numeroDoc() As Long
            Get
                Return intNumeroDoc
            End Get
            Set(ByVal value As Long)
                intNumeroDoc = value
            End Set
        End Property
    End Class
End Namespace